0 POKE53281,0:POKE53280,0:PRINTCHR$(14) 1 PRINT"[158][147][204]OADING..." 2 IFA=1THEN4 3 A=1:LOAD"TITLE SCREEN",8,1 4 GB=2:POKE56576,GB:SB=7:MB=1:POKE53272,SB*16+MB*8:GM=49152-GB*16384 5 SM=GM+SB*1024:MM=GM+MB*8192:POKE53265,PEEK(53265)OR32:POKE53280,12 10 FORT=1TO5000:NEXT:POKE53281,0:POKE53280,0:POKE53265,27:POKE53270,200 15 POKE53272,20:POKE56576,151:POKE53272,23 50 PRINT"[147][158][196]O YOU NEED INSTRUCTIONS? " 55 GETA$:IFA$=""THEN55 60 IFA$="Y"THEN100 65 IFA$="N"THEN504 70 GOTO55 100 JV=PEEK(56320):FR=JVAND16:PRINT"[147]" 102 PRINT" [215]ELCOME TO [211][208][197][204][204][197][210]" 106 PRINTTAB(13)"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163] " 108 PRINT"[159][211][208][197][204][204][197][210] IS AN EDUCATIONAL PROGRAM THAT" 112 PRINT"ALLOWS YOU TO PRACTICE THE SPELLING" 116 PRINT"OF EVERYDAY OBJECTS. [207]VER ONE HUNDRED" 118 PRINT"PICTURES ARE ON THIS DISK FOR YOU TO" 122 PRINT"RECOGNIZE AND SPELL. [217]OU MUST LEAVE" 124 PRINT"THE DISK IN THE DRIVE. [193] JOYSTICK IN" 126 PRINT"PORT 2 IS REQUIRED. [207]NCE THE PROGRAM" 132 PRINT"HAS STARTED, THERE ARE THREE OPTIONS:" 136 PRINTTAB(16)"[158][211][159]PELL IT" 138 PRINTTAB(16)"[158][214][159]IEW IT" 144 PRINTTAB(16)"[158][209][159]UIT TO [204][207][193][196][211][212][193][210]." 146 PRINT"[211]PELL IT" 150 PRINT"[163][163][163][163][163][163][163][163]" 152 PRINT"[159][212]HIS IS THE MAIN PROGRAM. [207]NCE THIS" 156 PRINT"OPTION IS SELECTED, THE DRIVE WHIRLS AND" 160 PRINT"[145]AN OBJECT APPEARS ON THE SCREEN. [213]SE" 162 PRINT"THE JOYSTICK TO MOVE THE BOX CURSOR TO" 166 PRINT"THE APPROPRIATE LETTER AND PRESS THE" 168 PRINT"FIRE BUTTON." 180 PRINTTAB(9)"[158][208]RESS [198]IRE[146] [158]TO CONTINUE[145]" 182 JV=PEEK(56320):FR=JVAND16 184 IFFR<>16THEN201 186 GOTO182 201 PRINT"[147][159][207]NCE YOU HAVE FINISHED SPELLING THE" 205 PRINT"WORD, MOVE THE CURSOR TO THE BOTTOM" 207 PRINT"SECTION AND THE CURSOR WILL TURN INTO" 209 PRINT"A POINTING FINGER. [205]OVE THE FINGER TO" 213 PRINT"THE [197][206][212][197][210][159] BOX AND PRESS THE BUTTON." 217 PRINT"[201]F YOU SPELL THE WORD CORRECTLY, THE" 219 PRINT"WORD [195][207][210][210][197][195][212] APPEARS AT THE TOP OF THE" 221 PRINT"SCREEN, A BELL RINGS AND THE SCREEN" 223 PRINT"FLASHES. [193] NEW OBJECT THEN APPEARS." 225 PRINT"[201]F YOU SPELL THE WORD INCORRECTLY, THE" 227 PRINT"THE WORD [215][210][207][206][199] APPEARS AT THE TOP OF" 229 PRINT"THE SCREEN AND A BUZZER SOUNDS. [212]HE" 231 PRINT"CORRECT SPELLING IS THEN FLASHED FIVE" 233 PRINT"TIMES." 235 PRINT"[212]O CONTINUE, MOVE THE FINGER TO [197][206][212][197][210][159]" 243 PRINT"AND PRESS THE FIREBUTTON. [193] NEW" 245 PRINT"OBJECT WILL APPEAR." 247 PRINTTAB(9)"[158][208]RESS [198]IRE[146] [158]TO CONTINUE" 248 JV=PEEK(56320):FR=JVAND16 249 IFFR<>16THEN255 250 GOTO248 255 PRINT"[147][214]IEW IT" 257 PRINT"[163][163][163][163][163][163][163]" 261 PRINT"[159][212]HIS IS THE TUTORIAL MODE. [201]N THIS 263 [153]"MODE, THE WORD AND ITS SPELLING ARE" 265 [153]"SHOWN TO YOU." 308 [153]"RIGHT$T IS (null)VALLEN(null)(null)(null)VAL(null)STR$VALSTR$OPEN THAT YOU TRY THIS" 314 [153]"MODE A TIME OR TWO BEFORE CHOOSING THE" 318 [153]"(null)PELL RIGHT$T OPTION SO THAT YOU CAN BECOME" 320 [153]"FAMILIAR WITH THE PICTURES AND SPELLINGS" 322 [153]"ONOF THE OBJECTS." 326 [153]"(null)O EXIT THIS MODE, CHOOSE THE (null)UITOPEN" 328 [153]"OPTION AT THE BOTTOM OF THE SCREEN." 340 [153]"(null)UIT" 342 [153]"TAB(TAB(TAB(TAB(" 344 [153]"OPEN(null)OU'LL BE ASKED IF YOU ARE SURE, AND IF" 346 [153]"YOU ARE, YOU'LL RETURN TO (null)(null)ATNSTR$(null)(null)ATN(null)." 372 [153]""[163]9)"SYS(null)RESS ASCIREWAIT SYSTO CONTINUE" 380 JV[178][194](56320):FR[178]JV[175]16 382 [139]FR[179][177]16[167]412 385 [137]380 410 : 412 [153]"LOADVALDIT PEEKOX" 414 [153]"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(" 418 [153]"OPEN(null)HE EDIT BOX IS LOCATED AT THE BOTTOM" 420 [153]"OF THE SCREEN AND IT CONTAINS THREE" 422 [153]"COMMANDS: SYSVALNTEROPEN, SYSVALRASE (null)ETTEROPEN, AND SYS(null)ENUOPEN." 434 [153]"SYSVALNTER OPENIS THE MAIN COMMAND. (null)HENEVER" 438 [153]"TAB(TAB(TAB(TAB(TAB( OPENYOU SELECT THIS COMMAND, THE" 440 [153][163]6)"PROGRAM WILL CONTINUE." 446 [153]"SYSVALRASE (null)ETTER OPENERASES THE LAST CHARACTER" 450 [153]"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB( OPENTHAT WAS ENTERED. RIGHT$F YOU" 454 [153][163]13)"WANT TO ERASE THE WHOLE" 456 [153][163]13)"WORD, HOLD DOWN THE FIRE" 464 [153][163]13)"BUTTON." 466 [153]"SYS(null)ENU OPENRETURNS YOU TO THE MAIN MENU." 468 [153]"TAB(TAB(TAB(TAB(" 472 [153]"OPEN(null)HENEVER YOU ARE IN THE EDIT BOX, THE" 476 [153]"CURSOR TURNS INTO A POINTING FINGER." 482 [153][163]9)"SYS(null)RESS ASCIREWAIT SYSTO CONTINUE" 489 JV[178][194](56320):FR[178]JV[175]16 500 [139]FR[179][177]16[167][153]"LOAD":[137] 504 502 [137]489 504 GB[178]2:[151]56576,GB:SB[178]7:MB[178]1:[151]53272,SB[172]16[170]MB[172]8:GM[178]49152[171]GB[172]16384 505 SM[178]GM[170]SB[172]1024:MM[178]GM[170]MB[172]8192:[151]53265,[194](53265)[176]32:[151]53280,12 510 [153]"LOADSTOPLOAD"[199](34)"SPELLER"[199](34)",8" 512 [153][163]14)"SYSPLEASE WAIT...":[153]"STOP":[151]198,4:[151]631,13 514 [151]632,82:[151]633,213:[151]634,13:[128]